home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / V / ConcreteTopPane.st < prev    next >
Text File  |  1993-07-24  |  2KB  |  66 lines
  1. "    NAME        ConcreteTopPane
  2.     AUTHOR        MUHRTH@tubvm.cs.tu-berlin.de (Thomas Muhr)
  3.     FUNCTION    ensures windows stay around
  4.     ST-VERSION    V
  5.     PREREQUISITES    
  6.     CONFLICTS
  7.     DISTRIBUTION    world
  8.     VERSION        1
  9.     DATE    1 Aug 90
  10. SUMMARY Allows a window to stay on the screen, until
  11. (and only until) you close it explicitly through
  12. the close-icon or the topPane menu.
  13. Who is going to make the bell ring, when mousekey is
  14. pressed outside the window?
  15.  
  16. From: MUHRTH@tubvm.cs.tu-berlin.de (Thomas Muhr)
  17. Newsgroups: comp.lang.smalltalk
  18. Subject: ConcreteTopPane for ST V
  19. Message-ID: <90213.130450MUHRTH@DB0TUI11.BITNET>
  20. Date: 1 Aug 90 11:04:50 GMT
  21. Organization: Technical University Berlin
  22. "
  23. !
  24. "****************************
  25.  *   31 Jul 1990  12:30:56
  26.  *
  27.  *   Project: ConcreteTopPane
  28.  *
  29.  
  30. If you do not use Max Ott's (marvellous) Category and ProjectBrowser you should
  31. install the next method first: "!
  32.  
  33. !Behavior methods!
  34.  
  35. methodsInCategory: aCategory
  36.         "Answer an instance of ClassReader
  37.          initialized for the receiver.
  38. !!! max
  39.  
  40.     ^ClassReader forClass: self !!
  41.  
  42.  
  43. TopPane subclass: #ConcreteTopPane
  44.   instanceVariableNames: ''
  45.   classVariableNames: ''
  46.   poolDictionaries: '' !
  47.  
  48. !ConcreteTopPane methodsInCategory: 'etc'!
  49.  
  50. hasCursor
  51.  
  52.   "Autor: Th. Muhr, Datum: Feb 18, 1990
  53.    Kommentar:
  54.         TopPane can not (accidently) be deactivated by clicking outside the
  55. window.
  56.         Our preferred method for displaying information (help-windows, etc.)"
  57.     super hasCursor.
  58.     ^true! !
  59.  
  60. Thomas Muhr, Technical University of Berlin, BITNET: muhrth@db0tui11
  61.    Project ATLAS - Computer Based Tools for Qualitative Research
  62.          "Computers, like every technology, are a vehicle
  63.       for the transformation of tradition." (WINOGRAD/FLORES)
  64.  
  65.  
  66.